home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacApp Release 10 / MacApp Release 10 - HD Ready / Libraries / Framework / Sources / UScripting.cp < prev    next >
Encoding:
Text File  |  1996-04-03  |  62.0 KB  |  1,948 lines  |  [TEXT/MPS ]
  1. //----------------------------------------------------------------------------------------
  2. // UScripting.cp
  3. // Copyright © 1988-96 by Apple Computer, Inc. All rights reserved.
  4. //----------------------------------------------------------------------------------------
  5.  
  6. #ifndef __USCRIPTING__
  7. #include "UScripting.h"
  8. #endif
  9.  
  10. // MacApp
  11.  
  12. #ifndef __UCOMMANDHANDLER__
  13. #include "UCommandHandler.h"
  14. #endif
  15.  
  16. #ifndef __UCOREERRORMGR__
  17. #include "UCoreErrorMgr.h"
  18. #endif
  19.  
  20. #ifndef __UCOREGLOBALS__
  21. #include "UCoreGlobals.h"
  22. #endif
  23.  
  24. #ifndef __UCOREUTILITIES__
  25. #include "UCoreUtilities.h"
  26. #endif
  27.  
  28. //    #ifndef __UDIALOG__
  29. //    #include "UDialog.h"
  30. //    #endif
  31.  
  32. #ifndef __UDISPATCHER__
  33. #include "UDispatcher.h"
  34. #endif
  35.  
  36. //    #ifndef __UERRORMGR__
  37. //    #include "UErrorMgr.h"
  38. //    #endif
  39.  
  40. #ifndef __ULISTITERATOR__
  41. #include "UListIterator.h"
  42. #endif
  43.  
  44. #ifndef __UMACAPPGLOBALS__
  45. #include "UMacAppGlobals.h"
  46. #endif
  47.  
  48. #ifndef __UMACAPPUTILITIES__
  49. #include "UMacAppUtilities.h"
  50. #endif
  51.  
  52. #ifndef __UMEMORY__
  53. #include "UMemory.h"
  54. #endif
  55.  
  56. #ifndef __USUBSTITUTION__
  57. #include "USubstitution.h"
  58. #endif
  59.  
  60. // Toolbox
  61.  
  62. #ifndef __AEPACKOBJECT__
  63. #include <AEPackObject.h>
  64. #endif
  65.  
  66. #ifndef __AEREGISTRY__
  67. #include <AERegistry.h>
  68. #endif
  69.  
  70. #ifndef __MENUS__
  71. #include <Menus.h>
  72. #endif
  73.  
  74. #ifndef __RESOURCES__
  75. #include <Resources.h>
  76. #endif
  77.  
  78. // ANSI
  79.  
  80. #if qDebugMsg
  81.     #ifndef __STDIO__
  82.     #include <stdio.h>
  83.     #endif
  84. #endif
  85.  
  86. //========================================================================================
  87. // Static data allocations
  88. //========================================================================================
  89.  
  90. TOSADispatcher* TOSADispatcher::fgDispatcher;
  91.  
  92. //==================================================================================================
  93. // class TOSADispatcher
  94. //==================================================================================================
  95. #undef Inherited
  96. #define Inherited TObject
  97.  
  98. #pragma segment ConstructorRes
  99. MA_DEFINE_CLASS_M1(TOSADispatcher, Inherited);
  100.  
  101. //----------------------------------------------------------------------------------------
  102. // TOSADispatcher::InitUScripting
  103. //----------------------------------------------------------------------------------------
  104. #pragma segment MAInit
  105.  
  106. void TOSADispatcher::InitUScripting(MA_ClassReference classDesc)
  107. {
  108.     if (!IsHighLevelEventAware())
  109.     {
  110. #if qDebug
  111.         DebugStr((StringPtr)"\p###Not HighLevelEventAware! Check SIZE resource.");
  112. #endif
  113.         ExitToShell();
  114.     }
  115.  
  116.     if (TOSADispatcher::fgDispatcher)
  117.     {
  118. #if qDebugMsg
  119.         fprintf(stderr, "Scripting already initialized\n");
  120. #endif
  121.     }
  122.     else
  123.     {
  124.         AEObjectInit();
  125.         qd.randSeed = TickCount();
  126.         
  127.         if (!classDesc)
  128.         {
  129. #if qDebug
  130.             DebugStr((StringPtr)"\pNULL classDesc for scripting dispatcher");
  131. #endif
  132.             Failure(minErr, 0);
  133.         }
  134.         
  135.         fgDispatcher = (TOSADispatcher*) classDesc->Call_DefaultConstructor();
  136.         fgDispatcher->IOSADispatcher();
  137.         
  138.         InitUSubstitution();
  139.     }
  140. }
  141.  
  142. //----------------------------------------------------------------------------------------
  143. // TOSADispatcher::TOSADispatcher : 
  144. //----------------------------------------------------------------------------------------
  145. #pragma segment MAApplicationRes
  146.  
  147. TOSADispatcher::TOSADispatcher()
  148.     : fDefaultTarget(NULL),
  149.       fTemporaryTokens(NULL),
  150.       fPendingReplyList(NULL),
  151.       fDispatchUPP(NULL),
  152. #if qAttachable
  153.       fAttachedScripts(0),
  154.       fPreDispatchUPP(NULL),
  155. #endif
  156.       fAccessorUPP(NULL),
  157.       fCompareUPP(NULL),
  158.       fCountUPP(NULL),
  159.       fDisposeTokenUPP(NULL),
  160.       fGetMarkTokenUPP(NULL),
  161.       fMarkUPP(NULL),
  162.       fAdjustMarksUPP(NULL),
  163.       fDispatchLevel(0),
  164.       fAEResolveFlags(kAEIDoMinimum | kAEIDoWhose | kAEIDoMarking)
  165. {
  166.     
  167. }
  168.  
  169. //----------------------------------------------------------------------------------------
  170. // TOSADispatcher::~TOSADispatcher : 
  171. //----------------------------------------------------------------------------------------
  172. #pragma segment MAApplicationRes
  173.  
  174. TOSADispatcher::~TOSADispatcher()
  175. {
  176.     // dispose the routine descriptors allocated by this object
  177.     
  178.     // ••• Should remove handlers first!!!
  179.     
  180. #if qAttachable
  181.     fPreDispatchUPP = DisposeIfRoutineDescriptor(fPreDispatchUPP);
  182. #endif
  183.     TAppleEvent::fgIdleProc = DisposeIfRoutineDescriptor(TAppleEvent::fgIdleProc);
  184.     fDispatchUPP = DisposeIfRoutineDescriptor(fDispatchUPP);
  185.     fAccessorUPP = DisposeIfRoutineDescriptor(fAccessorUPP);
  186.     fCompareUPP = DisposeIfRoutineDescriptor(fCompareUPP);
  187.     fCountUPP = DisposeIfRoutineDescriptor(fCountUPP);
  188.     fDisposeTokenUPP = DisposeIfRoutineDescriptor(fDisposeTokenUPP);
  189.     fGetMarkTokenUPP = DisposeIfRoutineDescriptor(fGetMarkTokenUPP);
  190.     fMarkUPP = DisposeIfRoutineDescriptor(fMarkUPP);
  191.     fAdjustMarksUPP = DisposeIfRoutineDescriptor(fAdjustMarksUPP);
  192.     
  193.     fTemporaryTokens = (TList *)FreeIfObject(fTemporaryTokens);
  194.     fPendingReplyList = (TEventList *)FreeIfObject(fPendingReplyList);
  195. }
  196.  
  197. //----------------------------------------------------------------------------------------
  198. // TOSADispatcher::IOSADispatcher : 
  199. //----------------------------------------------------------------------------------------
  200. #pragma segment MAOSLDispatch
  201.  
  202. void TOSADispatcher::IOSADispatcher()
  203. {
  204.     this->IObject();
  205.         
  206.     fTemporaryTokens = NewList();
  207.     fPendingReplyList = new TEventList;
  208.     fPendingReplyList->IEventList();
  209.  
  210. #if qDebug
  211.     fPendingReplyList->SetEltType("TClientCommand");
  212. #endif
  213.     
  214.     this->InstallDispatchHandlers();
  215.     this->InstallObjectCallbacks();
  216. }
  217.  
  218. //----------------------------------------------------------------------------------------
  219. // TOSADispatcher::InstallDispatchHandlers : 
  220. //----------------------------------------------------------------------------------------
  221. #pragma segment MAInit
  222. // Just in case, this should be in a different segment than the glue it installs
  223.  
  224. void TOSADispatcher::InstallDispatchHandlers()
  225. {
  226.     MAVolatileInit(Handle, tableHandle, NULL);
  227.     MAVolatile(SignedByte, savedState);
  228.     
  229.     if (!TAppleEvent::fgIdleProc)
  230.     {
  231.         TAppleEvent::fgIdleProc = NewAEIdleProc(MacAppAppleEventIdleProc);
  232.         FailNIL(TAppleEvent::fgIdleProc);
  233.     }
  234.  
  235.     if (!fDispatchUPP)
  236.     {
  237.         fDispatchUPP = NewAEEventHandlerProc(TOSADispatcher::DispatchHandlerGlue);
  238.         FailNIL(fDispatchUPP);
  239.     }
  240.  
  241.     short numberOfTables = MACount1Resources('aedt'); // count the number of table resources
  242.     FailResError();
  243.     
  244.     FailInfo fi;
  245.     Try(fi)
  246.     {
  247.         for (short tableIndex = 1; tableIndex <= numberOfTables; ++tableIndex)
  248.         {
  249.             tableHandle = MAGet1IndResource('aedt', tableIndex);
  250.             FailNILResource(tableHandle);
  251.             savedState = LockHandle(tableHandle);
  252.             Size tableSize = GetHandleSize(tableHandle);
  253.             FailMemError();
  254.             short tableElements = (short)(tableSize / sizeof(MAEventTableRec));
  255.                 
  256.             MAEventTableRec *tablePtr = (MAEventTableRec*)*tableHandle;
  257.                 
  258.             for (short eventIndex = 1; eventIndex <= tableElements; ++eventIndex)
  259.             {
  260.                 // install the same event handler for all events
  261.                 FailOSErr(AEInstallEventHandler(tablePtr->theClass, tablePtr->theID,
  262.                              fDispatchUPP, tablePtr->theValue, FALSE));
  263.                 tablePtr++;
  264.             }
  265.                 
  266.             HSetState(tableHandle, savedState);
  267.             ReleaseResource(tableHandle);
  268.             tableHandle = NULL;
  269.         }
  270.         fi.Success();
  271.     }
  272.     else    // Recover
  273.     {
  274.         if (tableHandle)
  275.         {
  276.             HSetState(tableHandle, savedState);
  277.             ReleaseResource(tableHandle);
  278.         }
  279.         fi.ReSignal();
  280.     }
  281. }
  282.  
  283. #if qAttachable
  284.  
  285. //----------------------------------------------------------------------------------------
  286. // TOSADispatcher::ScriptAttached : 
  287. //----------------------------------------------------------------------------------------
  288. #pragma segment MAOSLDispatch
  289.  
  290. void TOSADispatcher::ScriptAttached()
  291. {
  292.     if (++fAttachedScripts == 1)
  293.         InstallPreDispatchHandler();
  294. }
  295.  
  296. //----------------------------------------------------------------------------------------
  297. // TOSADispatcher::ScriptDetached : 
  298. //----------------------------------------------------------------------------------------
  299. #pragma segment MAOSLDispatch
  300.  
  301. void TOSADispatcher::ScriptDetached()
  302. {
  303. #if qDebug
  304.     Assertion(fAttachedScripts >= 0, "\pToo many calls to ScriptDetached");
  305. #endif
  306.     if (--fAttachedScripts == 0)
  307.         RemovePreDispatchHandler();
  308. }
  309.  
  310. //----------------------------------------------------------------------------------------
  311. // TOSADispatcher::InstallPreDispatchHandler : 
  312. //----------------------------------------------------------------------------------------
  313. #pragma segment MAOSLDispatch
  314. // Just in case, this should be in a different segment than the glue it installs
  315.  
  316. void TOSADispatcher::InstallPreDispatchHandler()
  317. {
  318.     if (HasAppleScript())
  319.     {    
  320.         if  (!fPreDispatchUPP)
  321.         {
  322.             fPreDispatchUPP = NewAEEventHandlerProc(TOSADispatcher::PreDispatchHandlerGlue);
  323.             FailNIL(fPreDispatchUPP);
  324.         }
  325.         FailOSErr(AEInstallSpecialHandler(keyPreDispatch, (UniversalProcPtr)fPreDispatchUPP, FALSE));
  326.     }
  327. }
  328.  
  329. //----------------------------------------------------------------------------------------
  330. // TOSADispatcher::RemovePreDispatchHandler : 
  331. //----------------------------------------------------------------------------------------
  332. #pragma segment MAOSLDispatch
  333.  
  334. void TOSADispatcher::RemovePreDispatchHandler()
  335. {
  336.     if (HasAppleScript() && (fPreDispatchUPP != NULL))
  337.         FailOSErr(AERemoveSpecialHandler(keyPreDispatch, (UniversalProcPtr)fPreDispatchUPP, FALSE));
  338. }
  339.  
  340. #endif // qAttachable
  341.  
  342. //----------------------------------------------------------------------------------------
  343. // TOSADispatcher::InstallObjectCallbacks : 
  344. //----------------------------------------------------------------------------------------
  345. #pragma segment MAOSLDispatch
  346. // Just in case, this should be in a different segment than the glue it installs
  347.  
  348. void TOSADispatcher::InstallObjectCallbacks()
  349. {
  350.         // install the universal object accessor
  351.     fAccessorUPP = NewOSLAccessorProc(TOSADispatcher::ObjectAccessorGlue);
  352.     FailOSErr(AEInstallObjectAccessor(typeWildCard, typeWildCard, fAccessorUPP, 0, FALSE));
  353.     
  354.     fCompareUPP = NewOSLCompareProc(TOSADispatcher::CompareObjectsGlue);
  355.     fCountUPP = NewOSLCountProc(TOSADispatcher::CountObjectsGlue);
  356.     fDisposeTokenUPP = NewOSLDisposeTokenProc(TOSADispatcher::DisposeTokenGlue);
  357.     fGetMarkTokenUPP = NewOSLGetMarkTokenProc(TOSADispatcher::GetMarkTokenGlue);
  358.     fMarkUPP = NewOSLMarkProc(TOSADispatcher::MarkObjectGlue);
  359.     fAdjustMarksUPP = NewOSLAdjustMarksProc(TOSADispatcher::AdjustMarksGlue);
  360.     
  361.     FailOSErr(AESetObjectCallbacks(fCompareUPP, fCountUPP, fDisposeTokenUPP,
  362.                                    fGetMarkTokenUPP, fMarkUPP, fAdjustMarksUPP, NULL));
  363. }
  364.  
  365. #if qAttachable
  366.  
  367. //----------------------------------------------------------------------------------------
  368. // TOSADispatcher::PreDispatchHandler : 
  369. //----------------------------------------------------------------------------------------
  370. #pragma segment MAOSLDispatch
  371.  
  372. OSErr TOSADispatcher::PreDispatchHandler(CommandNumber    aCommandNumber,
  373.                                         TAppleEvent*     message,
  374.                                          TAppleEvent*    reply)
  375. {
  376.     MScriptableObject     *targetObject;
  377.     MAVolatileInit(OSErr, err, noErr);
  378.         
  379.     FailInfo fi;
  380.     Try(fi)
  381.     {
  382.         targetObject = this->GetTargetObject(aCommandNumber, message);
  383.         err = targetObject->HandleOSAEvent(aCommandNumber, message, reply) ? noErr : errAEEventNotHandled;
  384.         fi.Success();
  385.     }
  386.     else    // recover
  387.     {
  388.         // if the event is an "exists" event and the target was not found
  389.         // return false instead of an error
  390.  
  391.         if (aCommandNumber == cAEDoObjectsExist && fi.error == errAENoSuchObject)
  392.             ((TAppleEvent *)reply)->WriteBoolean(keyAEResult, FALSE);
  393.         else
  394.             fi.ReSignal();
  395.     }
  396.         
  397.     return err;
  398. }
  399.  
  400. #endif // qAttachable
  401.  
  402. //----------------------------------------------------------------------------------------
  403. // TOSADispatcher::DispatchHandler : 
  404. //----------------------------------------------------------------------------------------
  405. #pragma segment MAOSLDispatch
  406.  
  407. OSErr TOSADispatcher::DispatchHandler(    CommandNumber    aCommandNumber,
  408.                                         TAppleEvent*     message,
  409.                                          TAppleEvent*    reply)
  410. {
  411.     MAVolatileInit(OSErr, err, noErr);
  412.     
  413.     FailInfo fi;
  414.     Try(fi)
  415.     {
  416.         MScriptableObject         *targetObject;
  417.         TScriptableObjectList     *theObjectList;
  418.         Boolean                    targetIsContainer = FALSE;
  419.  
  420.         targetObject = this->GetTargetObject(aCommandNumber, message);
  421.     
  422.         if (targetObject->GetOMClass() == cScriptableObjectList)
  423.         {
  424.             FailNonObject(theObjectList = MA_DYNAMIC_CAST(TScriptableObjectList, targetObject));
  425.             targetObject = theObjectList->GetObjectsContainer();
  426.             targetIsContainer = TRUE;
  427.         }
  428.         
  429. #if qOptimizeSelfSendAevt        
  430.         long transactionID = message->GetTransactionID();
  431.         if (targetObject->IsPendingAction(aCommandNumber, transactionID))
  432.             err = errAEEventNotHandled;
  433.         else
  434. #endif
  435.         {
  436.             // print events directed at objects other than the application
  437.             // need to be handled as cPrint commands. 
  438.             if (aCommandNumber == cFinderPrint && targetObject != gDispatcher)
  439.                 aCommandNumber = cPrint;
  440.                 
  441.             if (targetIsContainer)
  442.                 targetObject->DoAEOnContainedObjects(theObjectList, aCommandNumber, message, reply);
  443.             else
  444.                 targetObject->HandleScriptCommand(aCommandNumber, message, reply);
  445.         }
  446.         fi.Success();
  447.     }
  448.     else    // recover
  449.     {    
  450.         // if the event is an "exists" event and the target was not found
  451.         // return false instead of an error
  452.  
  453.         if (aCommandNumber == cAEDoObjectsExist && fi.error == errAENoSuchObject)
  454.             ((TAppleEvent *)reply)->WriteBoolean(keyAEResult, FALSE);
  455.         else
  456.             fi.ReSignal();
  457.     }
  458.     
  459.     return err;
  460. } // TOSADispatcher::DispatchHandler
  461.  
  462. //----------------------------------------------------------------------------------------
  463. // TOSADispatcher::ReportDispatchError :
  464. // Note: This function is invoked when an error occurs during processing of an incoming
  465. // AppleEvent. All calls to subroutines must call resident code. Apple event manager
  466. // calls are made directly, rather than through TAppleEvent, to eliminate dependencies
  467. // on non-resident code.
  468. //----------------------------------------------------------------------------------------
  469. #pragma segment MAScriptingRes
  470.  
  471. void TOSADispatcher::ReportDispatchError(AppleEvent*     messageEvent,
  472.                                          AppleEvent*     replyEvent,
  473.                                          OSErr            dispatchErr,
  474.                                          long            dispatchErrMessage)
  475. {
  476.     Boolean sentToSelf = FALSE;
  477.     Boolean interactWithUser = FALSE;
  478.     Boolean senderWantsReply = FALSE;
  479.     OSErr    err;
  480.     
  481.     if (messageEvent)
  482.     {
  483.         ProcessSerialNumber eventPSN;
  484.         DescType            actualType;
  485.         Size                actualSize;
  486.         AESendMode            sendMode;
  487.         
  488.         err = AEGetAttributePtr(messageEvent, keyAddressAttr, typeProcessSerialNumber,
  489.             &actualType, &eventPSN, sizeof(ProcessSerialNumber), &actualSize);
  490.         if (err == noErr)
  491.             SameProcess(&eventPSN, &gDispatcher->fProcessNumber, &sentToSelf);
  492.         
  493.         err = AEGetAttributePtr(messageEvent, keyInteractLevelAttr, typeShortInteger,
  494.             &actualType, &sendMode, sizeof(short), &actualSize);
  495.         if (err == noErr)
  496.             senderWantsReply = (sendMode & kAEReplyModeMask) != kAENoReply;
  497.     }
  498.     
  499.     if (!sentToSelf && !senderWantsReply)
  500.     {
  501.         // pass NULL for the idling proc. incoming events right now might
  502.         // cause memory problems
  503.         interactWithUser = MAInteractWithUserNoIdleProc() == noErr;
  504.     }
  505.             
  506.     // Put up a dialog if:
  507.     //   1) we are not responding to an event sent by ourself AND
  508.     //   2) the client doesn't expect a reply AND
  509.     //   3) user interaction is acceptable.
  510.     
  511.     if (!sentToSelf && !senderWantsReply && interactWithUser)
  512.         gDispatcher->ShowError(dispatchErr, dispatchErrMessage);
  513.     
  514.     if (replyEvent && (replyEvent->descriptorType != typeNull) && (replyEvent->dataHandle != NULL))
  515.     {
  516.         long     failureError = dispatchErr;    // needs to be a signed long
  517.         CStr255    errStr;
  518.         AEPutParamPtr(replyEvent, keyErrorNumber, typeLongInteger, &failureError, sizeof(long));
  519.         if (!LookupErrString(dispatchErr, errReasonID, errStr))
  520.         {
  521.             // No error string was found, substitute the generic one.
  522.             CStr255 errNumStr;
  523.             LookupErrString(errGenericErrorWithNum, errReasonID, errStr);
  524.             NumToString(dispatchErr, errNumStr);
  525.             MAParamText("^ENUM", errNumStr);
  526.             MAReplaceText(errStr);
  527.         }
  528.         AEPutParamPtr(replyEvent, keyErrorString, typeChar, &errStr[1], errStr.Length());
  529.     }
  530. } // TOSADispatcher::ReportDispatchError
  531.  
  532. //----------------------------------------------------------------------------------------
  533. // TOSADispatcher::GetTargetObject : 
  534. //----------------------------------------------------------------------------------------
  535. #pragma segment MAOSLDispatch
  536.  
  537. MScriptableObject* TOSADispatcher::GetTargetObject(    CommandNumber aCommandNumber,
  538.                                                     TAppleEvent* appleEvent)
  539. {
  540.     CTempDesc            objectDesc;
  541.     OSErr                err = noErr;
  542.     MScriptableObject     *targetObject = NULL;
  543.     
  544.     // Get the direct object of the event. If the event is a create element event,
  545.     // use the insertion object.
  546.     if (aCommandNumber == cAECreateElement)
  547.         FailOSErr(appleEvent->ReadParameter(keyAEInsertHere, typeWildCard, objectDesc));
  548.     else
  549.         err = appleEvent->ReadParameter(keyDirectObject, typeWildCard, objectDesc);
  550.     
  551.     if (err == errAEDescNotFound)
  552.         targetObject = this->GetDefaultTarget();
  553.     else
  554.     {
  555.         FailOSErr(err);
  556.         if (objectDesc.GetDescriptorType() == typeInsertionLoc)
  557.         {
  558.             CTempDesc insertionDesc;
  559.  
  560.             FailOSErr(AECoerceDesc(objectDesc, typeAERecord, insertionDesc));
  561.             FailOSErr(objectDesc.DisposeDesc());
  562.             insertionDesc.GetKeyDesc(keyAEObject, typeWildCard, objectDesc);
  563.             appleEvent->WriteParameter(keyDirectObject, objectDesc);
  564.         }
  565.  
  566.         targetObject = this->ResolveObjectSpecifier(objectDesc);
  567.     }
  568.     return targetObject;
  569. }
  570.  
  571. //----------------------------------------------------------------------------------------
  572. // TOSADispatcher::ResolveObjectSpecifier : Ask the OSL to resolve an object specifier. 
  573. // This will initiate a dialog between the OSL and our object resolution callbacks. 
  574. //----------------------------------------------------------------------------------------
  575. #pragma segment MAOSLDispatch
  576.  
  577. MScriptableObject* TOSADispatcher::ResolveObjectSpecifier(CAEDesc&     objectDesc)
  578. {
  579.     MScriptableObject     *result;
  580.             
  581.     if (objectDesc.GetDescriptorType() == typeObjectSpecifier)
  582.     {
  583.         CTempDesc             tokenDesc;
  584.         
  585.         FailOSErr(AEResolve(objectDesc, fAEResolveFlags, tokenDesc));
  586.         result = tokenDesc.GetObject();
  587.     }
  588.     else
  589.         result = this->GetDefaultTarget();
  590.     
  591.     return result;
  592. }
  593.  
  594. //----------------------------------------------------------------------------------------
  595. // GetAppleEventCommandNumber: return the commandNumber associated with a specific
  596. // event class and ID.
  597. //----------------------------------------------------------------------------------------
  598. #pragma segment MAOSLDispatch
  599.  
  600. CommandNumber TOSADispatcher::GetAppleEventCommandNumber(AEEventClass     eventClass,
  601.                                                         AEEventID         eventID)
  602. {
  603.     AEEventClass        localClass = eventClass;
  604.     AEEventID            localID = eventID;
  605.     OSErr                err;
  606.     long                theCommandNumber = 0;
  607.     AEEventHandlerUPP    eventHandler = NULL;
  608.     
  609.     err = AEGetEventHandler(eventClass, eventID, &eventHandler, &theCommandNumber, FALSE);
  610.     if (err != noErr)
  611.         theCommandNumber = 0;
  612.         
  613.     return theCommandNumber;
  614. }
  615.  
  616.  
  617. //----------------------------------------------------------------------------------------
  618. // TOSADispatcher::ObjectAccessor : Handles the AccessContainedObjects OSL callback by
  619. // asking the container object to return a reference to a specific contained object. If
  620. // the object was created for object resolution, and requires disposal later, it is added
  621. // to the temp tokens list.
  622. //----------------------------------------------------------------------------------------
  623. #pragma segment MAOSLDispatch
  624.  
  625. void TOSADispatcher::ObjectAccessor(DescType     desiredClass,
  626.                                     CAEDesc&     container,
  627.                                     DescType    /* containerClass */,
  628.                                     DescType     form,
  629.                                     CAEDesc&     selectionData,
  630.                                     CAEDesc&     value,
  631.                                     long        /* accessorRefcon */)
  632. {
  633.     MScriptableObject *containerObject = container.GetObject();
  634.     if (containerObject == NULL)
  635.         containerObject = fDefaultTarget;
  636.         
  637.     MScriptableObject *resultObject = NULL;
  638.     resultObject = containerObject->GetContainedObject(desiredClass, form, selectionData);
  639.     if (resultObject == NULL)
  640.         FailOSErr(errAENoSuchObject);
  641.     
  642.     value.PutObject(resultObject);
  643. }
  644.  
  645. //----------------------------------------------------------------------------------------
  646. // TOSADispatcher::CountObjects: Handle the OSL CountObjects callback by asking
  647. // a container object to count the contained objects of a certain type.
  648. //----------------------------------------------------------------------------------------
  649. #pragma segment MAOSLDispatch
  650.  
  651. long TOSADispatcher::CountObjects(    DescType     desiredType,
  652.                                     DescType     /*containerClass*/,
  653.                                        CAEDesc&     container)
  654. {
  655.     MScriptableObject *theContainer = container.GetObject();
  656.     return theContainer->CountContainedObjects(desiredType);
  657. } 
  658.  
  659. //----------------------------------------------------------------------------------------
  660. // TOSADispatcher::CompareObjects: Handle the OSL CompareObjects callback by asking
  661. // the target object to compare itself to another object.
  662. //----------------------------------------------------------------------------------------
  663. #pragma segment MAOSLDispatch
  664.  
  665. Boolean TOSADispatcher::CompareObjects(    DescType     whichOperation,
  666.                                         CAEDesc&     targetDesc,
  667.                                         CAEDesc&     thingToCompare)
  668. {
  669.     MScriptableObject *theTargetObject = targetDesc.GetObject();
  670.     return theTargetObject->CompareScriptableObjects(whichOperation, thingToCompare);
  671. }
  672.  
  673. //----------------------------------------------------------------------------------------
  674. // TOSADispatcher::DisposeToken: The OSL calls this method after object resolution but
  675. // before the event is processed. After an event is processed, all temporary tokens
  676. // are disposed.
  677. //----------------------------------------------------------------------------------------
  678. #pragma segment MAOSLDispatch
  679.  
  680. void TOSADispatcher::DisposeToken(CAEDesc& unneededToken)
  681. {
  682.     FailOSErr(unneededToken.DisposeDesc());
  683. }
  684.  
  685. //----------------------------------------------------------------------------------------
  686. // TOSADispatcher::GetMarkToken: Before marking a set of objects, the OSL asks for a
  687. // token to contain them.  MacApp provides a TScriptableObjectList.
  688. //----------------------------------------------------------------------------------------
  689. #pragma segment MAOSLDispatch
  690.  
  691. void TOSADispatcher::GetMarkToken( CAEDesc& theContainerToken,
  692.                                    DescType    /*containerClass*/,
  693.                                    CAEDesc& result)
  694. {
  695.     MScriptableObject *containerObject = theContainerToken.GetObject();
  696.     TScriptableObjectList *theMarkingList = containerObject->MakeNewMarkingList();
  697.     FailNonObject(theMarkingList);
  698.     result.PutObject(theMarkingList);
  699. }
  700.  
  701. //----------------------------------------------------------------------------------------
  702. // TOSADispatcher::MarkObject: OSL is requesting the specified object be marked.
  703. //----------------------------------------------------------------------------------------
  704. #pragma segment MAOSLDispatch
  705.  
  706. void TOSADispatcher::MarkObject(CAEDesc& theToken,
  707.                                 CAEDesc& markingListToken,
  708.                                 long    /*index*/)
  709. {
  710.     MScriptableObject *markingListObject = markingListToken.GetObject();
  711.     TScriptableObjectList *theMarkingList = MA_DYNAMIC_CAST(TScriptableObjectList, markingListObject);
  712.     FailNonObject(theMarkingList);
  713.     MScriptableObject *objectToMark = theToken.GetObject();
  714.     theMarkingList->InsertMarkedObject(objectToMark);
  715. }
  716.  
  717. //----------------------------------------------------------------------------------------
  718. // TOSADispatcher::AdjustMarks: 
  719. //----------------------------------------------------------------------------------------
  720. #pragma segment MAOSLDispatch
  721.  
  722. void TOSADispatcher::AdjustMarks(long         newStart,
  723.                                  long         newStop,
  724.                                  CAEDesc&     markToken)
  725. {
  726.     // Ask the TAppleObjectList marking list to adjust the items it contains.
  727.     MScriptableObject *markObject = markToken.GetObject();
  728.     TScriptableObjectList *theMarkingList = MA_DYNAMIC_CAST(TScriptableObjectList, markObject);
  729.     FailNonObject(theMarkingList);
  730.     theMarkingList->AdjustMarks(newStart, newStop);
  731. }
  732.  
  733. //----------------------------------------------------------------------------------------
  734. // TOSADispatcher::PostPendingReplyCommand: 
  735. //----------------------------------------------------------------------------------------
  736. #pragma segment MAOSLDispatch
  737.  
  738. void TOSADispatcher::PostPendingReplyCommand(TCommand* command)
  739. {
  740.     fPendingReplyList->Insert(command);
  741. }
  742.  
  743.  
  744. //----------------------------------------------------------------------------------------
  745. // TOSADispatcher::MatchReplyToPending: 
  746. //----------------------------------------------------------------------------------------
  747. #pragma segment MAOSLDispatch
  748.  
  749. void TOSADispatcher::MatchReplyToPending(TAppleEvent* reply)
  750. {
  751.     TClientCommand * theMatchedCommand = NULL;
  752.  
  753.     // Higher priority events are at the end of the list.
  754.     CObjectIterator iter(fPendingReplyList, kIterateBackward);
  755.  
  756.     for (TClientCommand * aCommand = (TClientCommand *)iter.FirstObject(); iter.More(); aCommand = (TClientCommand *)iter.NextObject())
  757.     {
  758.         if (aCommand->GetReturnID() == reply->GetReturnID())
  759.         {
  760.             theMatchedCommand = aCommand;
  761.             break;
  762.         }
  763.     }
  764.  
  765.     if (theMatchedCommand)
  766.     {
  767.         fPendingReplyList->Delete(theMatchedCommand);
  768.         theMatchedCommand->ProcessReply(reply);
  769.         theMatchedCommand->fContext->PostCommand(theMatchedCommand);
  770.     }
  771.     else
  772.         FailOSErr(errAEEventNotHandled);
  773. }
  774.  
  775. //----------------------------------------------------------------------------------------
  776. // TOSADispatcher::GetTemporaryTokens
  777. //----------------------------------------------------------------------------------------
  778. #pragma segment MAOSLDispatch
  779.  
  780. TList* TOSADispatcher::GetTemporaryTokens()
  781. {
  782.     return fTemporaryTokens;
  783. }
  784.  
  785. //----------------------------------------------------------------------------------------
  786. // TOSADispatcher::AddTemporaryToken: Insert an object into the temp tokens list.
  787. // Temp tokens will be discarded after the target is resolved and the event is executed.
  788. //----------------------------------------------------------------------------------------
  789. #pragma segment MAOSLDispatch
  790.  
  791. void TOSADispatcher::AddTemporaryToken(TObject* tempToken)
  792. {
  793.     if (fTemporaryTokens->GetEqualItemNo(tempToken) == kEmptyIndex)
  794.         fTemporaryTokens->InsertLast(tempToken);
  795. }
  796.  
  797. //----------------------------------------------------------------------------------------
  798. // TOSADispatcher::FreeTemporaryTokens: 
  799. //----------------------------------------------------------------------------------------
  800. #pragma segment MAOSLDispatch
  801.  
  802. void TOSADispatcher::FreeTemporaryTokens()
  803. {
  804.     // Frees all the objects in the temp token list.
  805.     if (fTemporaryTokens && (fDispatchLevel < 1))
  806.     {
  807.         FailInfo fi;    // swallow errors
  808.         Try(fi)
  809.         {
  810.             fTemporaryTokens->FreeAll();
  811.             fi.Success();
  812.         }
  813.     }
  814. }
  815.  
  816. #if qAttachable
  817.  
  818. //----------------------------------------------------------------------------------------
  819. // TOSADispatcher::PreDispatchHandlerGlue : AppleScript does not send the refCon
  820. // associated with the standard dispatch handler for the event.
  821. //----------------------------------------------------------------------------------------
  822. #pragma segment MAScriptingRes
  823.  
  824. pascal OSErr TOSADispatcher::PreDispatchHandlerGlue(AppleEvent* message,
  825.                                                     AppleEvent* reply,
  826.                                                     long        /* info */)
  827. {
  828.     MAVolatileInit(TAppleEvent*, messageEvent, NULL);
  829.     MAVolatileInit(TAppleEvent*, replyEvent, NULL);
  830.     OSErr dispatchErr = noErr;
  831.     long dispatchErrMessage = 0L;
  832.     
  833.     TOSADispatcher::fgDispatcher->fDispatchLevel++;
  834.  
  835.     FailInfo fi;
  836.     Try(fi)
  837.     {
  838.         AEEventClass    eventClass;
  839.         AEEventID        eventID;
  840.         CommandNumber    eventCommand = 0;
  841.  
  842.         messageEvent = new TAppleEvent;
  843.         messageEvent->InitializeFromMessage(*message, FALSE);
  844.         replyEvent = new TAppleEvent;
  845.         replyEvent->InitializeFromMessage(*reply, FALSE);
  846.         
  847.         eventClass = messageEvent->ReadEventClass();
  848.         eventID = messageEvent->ReadEventID();
  849.         eventCommand = TOSADispatcher::fgDispatcher->GetAppleEventCommandNumber(eventClass, eventID);
  850.     
  851.         dispatchErr = TOSADispatcher::fgDispatcher->PreDispatchHandler(eventCommand, messageEvent, replyEvent);
  852.         fi.Success();
  853.     }
  854.     else
  855.     {
  856.         dispatchErr = fi.error;                // Don't propogate the error.
  857.         dispatchErrMessage = fi.message;    
  858.     }
  859.     
  860.     if (dispatchErr != noErr && dispatchErr != errAEEventNotHandled)
  861.         TOSADispatcher::fgDispatcher->ReportDispatchError(message, reply, dispatchErr, dispatchErrMessage);
  862.         
  863.     TOSADispatcher::fgDispatcher->fDispatchLevel--;
  864.     TOSADispatcher::fgDispatcher->FreeTemporaryTokens();
  865.  
  866.     FreeIfObject(messageEvent);
  867.     FreeIfObject(replyEvent);
  868.     
  869.     return dispatchErr;
  870. } // TOSADispatcher::PreDispatchHandlerGlue
  871.  
  872. #endif // qAttachable
  873.  
  874. //----------------------------------------------------------------------------------------
  875. // TOSADispatcher::DispatchHandlerGlue
  876. //----------------------------------------------------------------------------------------
  877. #pragma segment MAScriptingRes
  878.  
  879. pascal OSErr TOSADispatcher::DispatchHandlerGlue(AppleEvent*     message,
  880.                                                  AppleEvent*     reply,
  881.                                                  long            info)
  882. {
  883.     MAVolatileInit(TAppleEvent*, messageEvent, NULL);
  884.     MAVolatileInit(TAppleEvent*, replyEvent, NULL);
  885.     OSErr dispatchErr = noErr;
  886.     long dispatchErrMessage = 0L;
  887.     Boolean matchedToPending = FALSE;
  888.     CommandNumber itsCommand = (CommandNumber)info;
  889.     
  890.     TOSADispatcher::fgDispatcher->fDispatchLevel++;
  891.  
  892.     FailInfo fi;
  893.     Try(fi)
  894.     {
  895.         messageEvent = new TAppleEvent;
  896.         messageEvent->InitializeFromMessage(*message, FALSE);
  897.         replyEvent = new TAppleEvent;
  898.         replyEvent->InitializeFromMessage(*reply, FALSE);
  899.         
  900.         if (itsCommand == cAppleEventReply)        // handle incoming replies to client commands
  901.         {
  902.             TOSADispatcher::fgDispatcher->MatchReplyToPending(messageEvent);
  903.             matchedToPending = TRUE;
  904.         }
  905.         else
  906.             dispatchErr = TOSADispatcher::fgDispatcher->DispatchHandler(itsCommand, messageEvent, replyEvent);
  907.         
  908.         fi.Success();
  909.     }
  910.     else // recover
  911.     {
  912.         dispatchErr = fi.error;                // Do not propogate the error.
  913.         dispatchErrMessage = fi.message;    
  914.     }
  915.     
  916.     if (dispatchErr != noErr && dispatchErr != errAEEventNotHandled)
  917.         TOSADispatcher::fgDispatcher->ReportDispatchError(message, reply, dispatchErr, dispatchErrMessage);
  918.  
  919.     TOSADispatcher::fgDispatcher->fDispatchLevel--;
  920.     TOSADispatcher::fgDispatcher->FreeTemporaryTokens();
  921.         
  922.     // delete the message only if it wasn't matched to a pending command
  923.     if (!matchedToPending)
  924.         FreeIfObject(messageEvent);
  925.     FreeIfObject(replyEvent);
  926.     
  927.     return dispatchErr;
  928. } // TOSADispatcher::DispatchHandlerGlue
  929.  
  930. //----------------------------------------------------------------------------------------
  931. // TOSADispatcher::ObjectAccessorGlue
  932. //----------------------------------------------------------------------------------------
  933. #pragma segment MAScriptingRes
  934.  
  935. pascal OSErr TOSADispatcher::ObjectAccessorGlue(DescType     desiredClass, 
  936.                                                 AEDesc*     container, 
  937.                                                 DescType     containerClass, 
  938.                                                 DescType     form, 
  939.                                                 AEDesc*     selectionData, 
  940.                                                 AEDesc*     value,
  941.                                                 long         accessorRefcon)
  942. {
  943.     OSErr result = noErr;
  944.     
  945.     CAEDesc    containerDesc(container);
  946.     CAEDesc    selectionDesc(selectionData);
  947.     CAEDesc    valueDesc(value);
  948.     
  949.     FailInfo fi;
  950.     Try(fi)
  951.     {
  952.         TOSADispatcher::fgDispatcher->ObjectAccessor(desiredClass, containerDesc, containerClass, 
  953.                 form, selectionDesc, valueDesc, accessorRefcon);
  954.         *value = *(AEDesc *)valueDesc;
  955.         fi.Success();
  956.     }
  957.     else
  958.         result = fi.error;
  959.         
  960.     return result;
  961. }
  962.  
  963. //----------------------------------------------------------------------------------------
  964. // TOSADispatcher::CountObjectsGlue
  965. //----------------------------------------------------------------------------------------
  966. #pragma segment MAScriptingRes
  967.  
  968. pascal OSErr TOSADispatcher::CountObjectsGlue(    DescType     desiredType,
  969.                                                 DescType    containerClass,
  970.                                                 AEDesc*        container,
  971.                                                 long*         result)
  972. {
  973.     OSErr err = noErr;
  974.     CAEDesc    containerDesc(container);
  975.     
  976.     FailInfo fi;
  977.     Try(fi)
  978.     {
  979.         *result = TOSADispatcher::fgDispatcher->CountObjects(desiredType, containerClass, containerDesc);
  980.         fi.Success();
  981.     }
  982.     else
  983.         err = fi.error;
  984.         
  985.     return err;
  986. }
  987.  
  988. //----------------------------------------------------------------------------------------
  989. // TOSADispatcher::CompareObjectsGlue
  990. //----------------------------------------------------------------------------------------
  991. #pragma segment MAScriptingRes
  992.  
  993. pascal OSErr TOSADispatcher::CompareObjectsGlue(DescType     whichOperation,
  994.                                                 AEDesc*     obj1,
  995.                                                 AEDesc*     obj2,
  996.                                                 Boolean*     result)
  997. {
  998.     OSErr errResult = noErr;
  999.     CAEDesc    object1Desc(obj1);
  1000.     CAEDesc    object2Desc(obj2);
  1001.     
  1002.     FailInfo fi;
  1003.     Try(fi)
  1004.     {
  1005.         *result = TOSADispatcher::fgDispatcher->CompareObjects(whichOperation, object1Desc, object2Desc);
  1006.         fi.Success();
  1007.     }
  1008.     else
  1009.         errResult = fi.error;
  1010.         
  1011.     return errResult;
  1012. }
  1013.  
  1014. //----------------------------------------------------------------------------------------
  1015. // TOSADispatcher::DisposeTokenGlue
  1016. //----------------------------------------------------------------------------------------
  1017. #pragma segment MAScriptingRes
  1018.  
  1019. pascal OSErr TOSADispatcher::DisposeTokenGlue(AEDesc* unneededToken)
  1020. {
  1021.     OSErr     result = noErr;
  1022.     CAEDesc    tokenDesc(unneededToken);
  1023.     
  1024.     FailInfo fi;
  1025.     Try(fi)
  1026.     {
  1027.         TOSADispatcher::fgDispatcher->DisposeToken(tokenDesc);
  1028.         *unneededToken = *(AEDesc *)tokenDesc;
  1029.         fi.Success();
  1030.     }
  1031.     else
  1032.         result = fi.error;
  1033.         
  1034.     return result;
  1035. }
  1036.  
  1037. //----------------------------------------------------------------------------------------
  1038. // TOSADispatcher::GetMarkTokenGlue
  1039. //----------------------------------------------------------------------------------------
  1040. #pragma segment MAScriptingRes
  1041.  
  1042.  pascal OSErr TOSADispatcher::GetMarkTokenGlue(    AEDesc*     containerToken,
  1043.                                                 DescType     containerClass,
  1044.                                                 AEDesc*     result)
  1045. {
  1046.     OSErr theErr = noErr;
  1047.     CAEDesc    containerDesc(containerToken);
  1048.     CAEDesc    markDesc(result);
  1049.     
  1050.     FailInfo fi;
  1051.     Try(fi)
  1052.     {
  1053.         TOSADispatcher::fgDispatcher->GetMarkToken(containerDesc, containerClass, markDesc);
  1054.         *result = *(AEDesc *)markDesc;
  1055.         fi.Success();
  1056.     }
  1057.     else
  1058.         theErr = fi.error;
  1059.         
  1060.     return theErr;
  1061. }
  1062.  
  1063. //----------------------------------------------------------------------------------------
  1064. // TOSADispatcher::MarkObjectGlue
  1065. //----------------------------------------------------------------------------------------
  1066. #pragma segment MAScriptingRes
  1067.  
  1068. pascal OSErr TOSADispatcher::MarkObjectGlue(AEDesc* dToken,
  1069.                                             AEDesc* markToken,
  1070.                                             long     index)
  1071. {
  1072.     OSErr result = noErr;
  1073.     FailInfo fi;
  1074.     Try(fi)
  1075.     {
  1076.         CAEDesc localToken(dToken);
  1077.         CAEDesc localMarkToken(markToken);
  1078.         TOSADispatcher::fgDispatcher->MarkObject(localToken, localMarkToken, index);
  1079.         fi.Success();
  1080.     }
  1081.     else
  1082.         result = fi.error;
  1083.     return result;
  1084. }
  1085.  
  1086. //----------------------------------------------------------------------------------------
  1087. // TOSADispatcher::AdjustMarksGlue
  1088. //----------------------------------------------------------------------------------------
  1089. #pragma segment MAScriptingRes
  1090.  
  1091. pascal OSErr TOSADispatcher::AdjustMarksGlue(long newStart,
  1092.                                              long newStop,
  1093.                                              AEDesc* markToken)
  1094. {
  1095.     OSErr result = noErr;
  1096.     CAEDesc    markDesc(markToken);
  1097.     
  1098.     FailInfo fi;
  1099.     Try(fi)
  1100.     {
  1101.         TOSADispatcher::fgDispatcher->AdjustMarks(newStart, newStop, markDesc);
  1102.         fi.Success();
  1103.     }
  1104.     else
  1105.         result = fi.error;
  1106.     return result;
  1107. }
  1108.  
  1109. //==================================================================================================
  1110. // Class TSetPropertyCommand
  1111. //==================================================================================================
  1112. #undef Inherited
  1113. #define Inherited TCommand
  1114.  
  1115. #pragma segment ConstructorRes
  1116. MA_DEFINE_CLASS_M1(TSetPropertyCommand, Inherited);
  1117.             
  1118. //----------------------------------------------------------------------------------------
  1119. // TSetPropertyCommand::TSetPropertyCommand
  1120. //----------------------------------------------------------------------------------------
  1121.  
  1122. TSetPropertyCommand::TSetPropertyCommand()
  1123.     : fObjectsToSet(NULL),
  1124.       fObjectsToFree(NULL),
  1125.       fProperty('\?\?\?\?'),
  1126.       fOldPropData(),
  1127.       fNewPropData()
  1128. {
  1129. }
  1130.  
  1131. //----------------------------------------------------------------------------------------
  1132. // TSetPropertyCommand::~TSetPropertyCommand
  1133. //----------------------------------------------------------------------------------------
  1134. #pragma segment ASelCommand
  1135.  
  1136. TSetPropertyCommand::~TSetPropertyCommand()
  1137. {
  1138.     fObjectsToSet = (TList *)FreeIfObject(fObjectsToSet);
  1139.     fObjectsToFree = (TList *)FreeListIfObject(fObjectsToFree);
  1140. }
  1141.  
  1142. //----------------------------------------------------------------------------------------
  1143. // TSetPropertyCommand::ISetPropertyCommand
  1144. //----------------------------------------------------------------------------------------
  1145. #pragma segment ASelCommand
  1146.  
  1147. void TSetPropertyCommand::ISetPropertyCommand(DescType theProperty,
  1148.                                               TList* theObjectsToSet,
  1149.                                               TAppleEvent* message,
  1150.                                               TAppleEvent* /* reply */)
  1151. {
  1152.     // We take charge of the temporary objects in the disposal list so we can use them
  1153.     // during execution of this command.
  1154.     // We'll free these when we commit.
  1155.     TList * theDisposalList = TOSADispatcher::fgDispatcher->GetTemporaryTokens();
  1156.     fObjectsToFree = (TList *)theDisposalList->Clone();
  1157.     theDisposalList->DeleteAll();
  1158.     // We'll clone the list so the caller can free it immediately.
  1159.     fObjectsToSet = (TList *)theObjectsToSet->Clone();
  1160.     fProperty = theProperty;
  1161.     CommandNumber cmdNum;
  1162.     Boolean canUndo;
  1163.     Boolean causesChange;
  1164.     TObject * theFirstObject = theObjectsToSet->At(1);
  1165.     FailNIL(theFirstObject);
  1166.  
  1167.     // Get the info for this command from the object.
  1168.     TCommandHandler* itsContext = NULL;
  1169.     ((MScriptableObject*)theFirstObject)->GetSetPropertyInfo(theProperty, cmdNum, canUndo, causesChange, itsContext);
  1170.     this->ICommand(cmdNum, itsContext, canUndo, causesChange, itsContext);
  1171.  
  1172.     fOldPropData = NULL;
  1173.  
  1174.     CAEDesc newPropData;
  1175.     message->ReadParameter(keyAEData, typeWildCard, newPropData);
  1176.     fNewPropData = newPropData;
  1177. }
  1178.  
  1179. //----------------------------------------------------------------------------------------
  1180. // TSetPropertyCommand::DoIt
  1181. //----------------------------------------------------------------------------------------
  1182. #pragma segment ASelCommand
  1183.  
  1184. void TSetPropertyCommand::DoIt()
  1185. {
  1186.     CAEDesc theOldPropList;
  1187.     if (fCanUndo)
  1188.     {
  1189.         theOldPropList.CreateList();
  1190.  
  1191.         CObjectIterator iter(fObjectsToSet);
  1192.         for (TObject * anObject = iter.FirstObject(); iter.More(); anObject = iter.NextObject())
  1193.         {
  1194.             CTempDesc thePropData;
  1195.             ((MScriptableObject*)anObject)->GetObjectProperty(thePropData, fProperty, CAEDesc::fgNullDesc);
  1196.             FailOSErr(AEPutDesc(theOldPropList, 0, thePropData));
  1197.         }
  1198.     }
  1199.     fOldPropData = theOldPropList;
  1200.         
  1201.     this->RedoIt();
  1202. }
  1203.  
  1204. //----------------------------------------------------------------------------------------
  1205. // TSetPropertyCommand::UndoIt
  1206. //----------------------------------------------------------------------------------------
  1207. #pragma segment ASelCommand
  1208.  
  1209. void TSetPropertyCommand::UndoIt()
  1210. {
  1211.     CAEDesc theOldPropData(fOldPropData);
  1212.     Assertion(theOldPropData.GetDataHandle() != NULL, "Trying to undo with no data!");
  1213.     CObjectIterator iter(fObjectsToSet);
  1214.     short listIndex = 1;
  1215.     for (TObject * anObject = iter.FirstObject(); iter.More(); anObject = iter.NextObject())
  1216.     {
  1217.         CTempDesc theOldPropDesc;
  1218.         DescType theActualKey;
  1219.         FailOSErr(AEGetNthDesc(theOldPropData, listIndex++, typeWildCard, &theActualKey, theOldPropDesc));
  1220.         ((MScriptableObject*)anObject)->SetObjectProperty(theOldPropDesc, fProperty);
  1221.     }
  1222. }
  1223.  
  1224. //----------------------------------------------------------------------------------------
  1225. // TSetPropertyCommand::RedoIt
  1226. //----------------------------------------------------------------------------------------
  1227. #pragma segment ASelCommand
  1228.  
  1229. void TSetPropertyCommand::RedoIt()
  1230. {
  1231.     CAEDesc thePropData(fNewPropData);
  1232.     CObjectIterator iter(fObjectsToSet);
  1233.     for (TObject * anObject = iter.FirstObject(); iter.More(); anObject = iter.NextObject())
  1234.         ((MScriptableObject*)anObject)->SetObjectProperty(thePropData, fProperty);
  1235. }
  1236.  
  1237. //----------------------------------------------------------------------------------------
  1238. // TPropertyAccessor
  1239. //----------------------------------------------------------------------------------------
  1240. #undef Inherited
  1241. #define Inherited TObject
  1242.  
  1243. #pragma segment ConstructorRes
  1244. MA_DEFINE_CLASS_M2(TPropertyAccessor, Inherited, MScriptableObject);
  1245.  
  1246. //----------------------------------------------------------------------------------------
  1247. // TPropertyAccessor::TPropertyAccessor
  1248. //----------------------------------------------------------------------------------------
  1249.  
  1250. TPropertyAccessor::TPropertyAccessor()
  1251.     : MScriptableObject(cProperty)
  1252. {
  1253. }                                                // TPropertyAccessor::TPropertyAccessor
  1254.  
  1255. //----------------------------------------------------------------------------------------
  1256. // TPropertyAccessor destructor
  1257. //----------------------------------------------------------------------------------------
  1258. #pragma segment MADestructorRes
  1259.  
  1260. TPropertyAccessor::~TPropertyAccessor()
  1261. {
  1262. }
  1263.  
  1264. //----------------------------------------------------------------------------------------
  1265. // TPropertyAccessor::IPropertyAccessor
  1266. //----------------------------------------------------------------------------------------
  1267. #pragma segment MAOSLDispatch
  1268.  
  1269. void TPropertyAccessor::IPropertyAccessor(MScriptableObject* whichObject,
  1270.                                           DescType whichProperty)
  1271. {
  1272.     // Records which object and property to act on.
  1273.     IObject();
  1274.     fWhichObject = whichObject;
  1275.     fWhichProperty = whichProperty;
  1276. }
  1277.  
  1278. //----------------------------------------------------------------------------------------
  1279. // TPropertyAccessor::GetCommandContext
  1280. //----------------------------------------------------------------------------------------
  1281. #pragma segment MAOSLDispatch
  1282.  
  1283. TCommandHandler* TPropertyAccessor::GetCommandContext(const CommandNumber aCommandNumber) const
  1284. {
  1285.     TCommandHandler *commandHandler = NULL;
  1286.     
  1287.     if (fWhichObject)
  1288.     {    
  1289.         commandHandler = MA_DYNAMIC_CAST(TCommandHandler, fWhichObject);
  1290.         if (commandHandler)
  1291.             commandHandler = commandHandler->GetContext(aCommandNumber);
  1292.     }
  1293.     
  1294.     if (!commandHandler)
  1295.         commandHandler = MScriptableObject::GetCommandContext(aCommandNumber);
  1296.     
  1297.     return commandHandler;
  1298. }
  1299.  
  1300. //----------------------------------------------------------------------------------------
  1301. // TPropertyAccessor::DoScriptCommand
  1302. //----------------------------------------------------------------------------------------
  1303. #pragma segment MAOSLDispatch
  1304.  
  1305. void TPropertyAccessor::DoScriptCommand(CommandNumber     aCommandNumber,
  1306.                                         TAppleEvent*    message,
  1307.                                            TAppleEvent*     reply)
  1308. {
  1309.     // Handles GetData and SetData for this property.
  1310.     FailInfo fi;
  1311.     Try(fi)
  1312.     {
  1313.         switch (aCommandNumber)
  1314.         {
  1315.             case cAEGetData:
  1316.                 {
  1317.                     CTempDesc requestedType;
  1318.                     if (message->HasParameter(keyAERequestedType))
  1319.                         message->ReadParameter(keyAERequestedType, typeWildCard, requestedType);
  1320.                     
  1321.                     CTempDesc thePropertyValue;
  1322.                     fWhichObject->GetObjectProperty(thePropertyValue, fWhichProperty, requestedType);
  1323.                     reply->WriteParameter(keyAEResult, thePropertyValue);
  1324.                     break;
  1325.                 }
  1326.             case cAESetData:
  1327.                 {
  1328.                     TList * aOneObjectList = NewList();
  1329.                     aOneObjectList->InsertLast((TObject*)fWhichObject);
  1330.                     TSetPropertyCommand * theCmd = new TSetPropertyCommand;
  1331.                     theCmd->ISetPropertyCommand(fWhichProperty, aOneObjectList, message, reply);
  1332.                     aOneObjectList = (TList *)FreeIfObject(aOneObjectList);
  1333.                     theCmd->Process();
  1334.                     break;
  1335.                 }
  1336.             default:
  1337.                 MScriptableObject::DoScriptCommand(aCommandNumber, message, reply);
  1338.                 break;
  1339.         }
  1340.         fi.Success();
  1341.     }
  1342.     else
  1343.     {
  1344.         reply->WriteOSError(fi.error);
  1345.     }
  1346. }
  1347.  
  1348. //----------------------------------------------------------------------------------------
  1349. // TPropertyAccessor::CompareScriptableObjects
  1350. //----------------------------------------------------------------------------------------
  1351. #pragma segment MAOSLDispatch
  1352.  
  1353. Boolean TPropertyAccessor::CompareScriptableObjects(DescType operation,
  1354.                                                const CAEDesc& thingToCompare)
  1355. {
  1356.     // Compares the properties.
  1357.     return fWhichObject->CompareProperties(fWhichProperty, operation, thingToCompare);
  1358. }
  1359.  
  1360. //----------------------------------------------------------------------------------------
  1361. // TPropertyAccessor::SetObjectProperty
  1362. //----------------------------------------------------------------------------------------
  1363. #pragma segment MAOSLDispatch
  1364.  
  1365. void TPropertyAccessor::SetObjectProperty(const CAEDesc& thePropertyValue,
  1366.                                            DescType whichProperty)
  1367. {
  1368.     fWhichObject->SetObjectProperty(thePropertyValue, whichProperty);
  1369. }
  1370.  
  1371. //----------------------------------------------------------------------------------------
  1372. // TPropertyAccessor::GetObjectProperty
  1373. //----------------------------------------------------------------------------------------
  1374. #pragma segment MAOSLDispatch
  1375.  
  1376. Boolean TPropertyAccessor::GetObjectProperty(CAEDesc& thePropertyValue,
  1377.                                              DescType whichProperty,
  1378.                                              const CAEDesc& desiredType)
  1379. {
  1380.     return fWhichObject->GetObjectProperty(thePropertyValue, whichProperty, desiredType);
  1381. }
  1382.  
  1383. //----------------------------------------------------------------------------------------
  1384. // TPropertyAccessor::DoAEGetDataSize
  1385. //----------------------------------------------------------------------------------------
  1386. #pragma segment MAOSLDispatch
  1387.  
  1388. void TPropertyAccessor::DoAEGetDataSize(TAppleEvent* message,
  1389.                                         TAppleEvent* reply)
  1390. {
  1391.     CTempDesc requestedType;
  1392.     if (message->HasParameter(keyAERequestedType))
  1393.         message->ReadParameter(keyAERequestedType, typeWildCard, requestedType);
  1394.     
  1395.     CTempDesc thePropertyValue;
  1396.     fWhichObject->GetObjectProperty(thePropertyValue, fWhichProperty, CAEDesc::fgNullDesc);
  1397.     long theSize = thePropertyValue.GetDataSize();
  1398.     reply->WriteLong(keyAEResult, theSize);
  1399. }
  1400.  
  1401. #if qAttachable
  1402.  
  1403. //----------------------------------------------------------------------------------------
  1404. // TPropertyAccessor::HandleOSAEvent:
  1405. //----------------------------------------------------------------------------------------
  1406. #pragma segment MAScriptingRes
  1407.  
  1408. Boolean TPropertyAccessor::HandleOSAEvent(    CommandNumber     aCommandNumber,
  1409.                                             TAppleEvent*     message,
  1410.                                             TAppleEvent*     reply)
  1411. {
  1412.     message->WriteType(keyAEProperty, fWhichProperty);
  1413.     return fWhichObject->HandleOSAEvent(aCommandNumber, message, reply);
  1414. }
  1415.  
  1416. #endif // qAttachable
  1417.  
  1418. //----------------------------------------------------------------------------------------
  1419. // TScriptableObjectList
  1420. //----------------------------------------------------------------------------------------
  1421. #undef Inherited
  1422. #define Inherited TList
  1423.  
  1424. #pragma segment ConstructorRes
  1425. MA_DEFINE_CLASS_M2(TScriptableObjectList, Inherited, MScriptableObject);
  1426.  
  1427. //----------------------------------------------------------------------------------------
  1428. // TScriptableObjectList::TScriptableObjectList
  1429. //----------------------------------------------------------------------------------------
  1430.  
  1431. TScriptableObjectList::TScriptableObjectList(): MScriptableObject(cScriptableObjectList)
  1432. {
  1433. }                                                // TScriptableObjectList::TScriptableObjectList
  1434.  
  1435. //----------------------------------------------------------------------------------------
  1436. // TScriptableObjectList destructor
  1437. //----------------------------------------------------------------------------------------
  1438. #pragma segment MADestructorRes
  1439.  
  1440. TScriptableObjectList::~TScriptableObjectList()
  1441. {
  1442. }
  1443.  
  1444. //----------------------------------------------------------------------------------------
  1445. // TScriptableObjectList::IScriptableObjectList
  1446. //----------------------------------------------------------------------------------------
  1447. #pragma segment MAOSLDispatch
  1448.  
  1449. void TScriptableObjectList::IScriptableObjectList(MScriptableObject* itsContainer)
  1450. {
  1451.     // Initializes the list and records the container.
  1452.     IList();
  1453.     fContainer = itsContainer;
  1454. }
  1455.  
  1456. //----------------------------------------------------------------------------------------
  1457. // TScriptableObjectList::DoAECountElements
  1458. //----------------------------------------------------------------------------------------
  1459. #pragma segment MAScriptingRes
  1460.  
  1461. void TScriptableObjectList::DoAECountElements(TAppleEvent* /*message*/,
  1462.                                          TAppleEvent* reply)
  1463. {
  1464.     // If we say "get number of (windows whose name contains "untitled")" OSL builds a
  1465.     // TAppleObjects list of TWindows that satisfies the whose test then calls this method.
  1466.     reply->WriteLong(keyAEResult, this->GetSize());
  1467. }
  1468.  
  1469. //----------------------------------------------------------------------------------------
  1470. // TScriptableObjectList::DoScriptCommand
  1471. //----------------------------------------------------------------------------------------
  1472. #pragma segment MAScriptingRes
  1473.  
  1474. void TScriptableObjectList::DoScriptCommand(CommandNumber    aCommandNumber,
  1475.                                             TAppleEvent*     message,
  1476.                                                TAppleEvent*     reply)
  1477. {
  1478.     if (aCommandNumber == cAECountElements)
  1479.         MScriptableObject::DoScriptCommand(aCommandNumber, message, reply);
  1480.     else
  1481.     {
  1482.         CTempDesc theReplyList;
  1483.         theReplyList.CreateList();
  1484.         // Calls DoScriptCommand for all the objects in the list.
  1485.         CObjectIterator iter(this);
  1486.         for (TObject * anObject = iter.FirstObject(); iter.More(); anObject = iter.NextObject())
  1487.         {
  1488.             ((MScriptableObject*)anObject)->DoScriptCommand(aCommandNumber, message, reply);
  1489.             CTempDesc theEventReply;
  1490.             if (reply->HasParameter(keyAEResult))
  1491.             {
  1492.                 reply->ReadParameter(keyAEResult, typeWildCard, theEventReply);
  1493.                 FailOSErr(AEPutDesc(theReplyList, 0, theEventReply));
  1494.             }
  1495.         }
  1496.         if (reply->fMessage.dataHandle)
  1497.             reply->WriteParameter(keyAEResult, theReplyList);
  1498.     }
  1499. }
  1500.  
  1501. //----------------------------------------------------------------------------------------
  1502. // TScriptableObjectList::InsertMarkedObject
  1503. //----------------------------------------------------------------------------------------
  1504. #pragma segment MAOSLDispatch
  1505.  
  1506. void TScriptableObjectList::InsertMarkedObject(MScriptableObject* theObjectMarked)
  1507. {
  1508.     // Adds the marked object to the list
  1509.     this->InsertLast((TObject*)theObjectMarked);
  1510. }
  1511.  
  1512. //----------------------------------------------------------------------------------------
  1513. // TScriptableObjectList::AdjustMarks
  1514. //----------------------------------------------------------------------------------------
  1515. #pragma segment MAScriptingRes
  1516.  
  1517. void TScriptableObjectList::AdjustMarks(long newStart,
  1518.                                    long newStop)
  1519. {
  1520.     // The OSL may occasionally change its mind about which objects should be marked.
  1521.     // This routine makes the adjustments.
  1522.     long numToDelete = this->GetSize() - newStop;
  1523.     if (numToDelete > 0)
  1524.         this->DeleteElementsAt(newStop + 1, numToDelete);
  1525.     numToDelete = newStart - 1;
  1526.     if (numToDelete > 0)
  1527.         this->DeleteElementsAt(1, numToDelete);
  1528. }
  1529.  
  1530. //----------------------------------------------------------------------------------------
  1531. // TScriptableObjectList::GetObjectsContainer
  1532. //----------------------------------------------------------------------------------------
  1533. #pragma segment MAOSLDispatch
  1534.  
  1535. MScriptableObject* TScriptableObjectList::GetObjectsContainer()
  1536. {
  1537.     return fContainer;
  1538. }
  1539.  
  1540. //----------------------------------------------------------------------------------------
  1541. // TScriptableObjectList::IsPropertyList
  1542. //----------------------------------------------------------------------------------------
  1543. #pragma segment MAOSLDispatch
  1544.  
  1545. Boolean TScriptableObjectList::IsPropertyList()
  1546. {
  1547.     // How do we know if this is a list of properties and not of objects?
  1548.     // We could walk down the list and make sure each element was a TPropertyAccessor,
  1549.     // but that adds overhead for large lists.
  1550.     // I haven't been able to think of a situation where objects and properties are operated
  1551.     // on at the same time and would be in the same list, so lets just check the first one.
  1552.     // I believe that even complex object specifiers can only refer to objects of the same class
  1553.     // and in the same container.
  1554.  
  1555.     TObject * theFirstObject = NULL;
  1556.     if (fSize > 0)
  1557.         theFirstObject = (TObject *)this->At(1);
  1558.     return (theFirstObject) && (((MScriptableObject*)theFirstObject)->GetOMClass() == cProperty);
  1559. }
  1560.  
  1561. //----------------------------------------------------------------------------------------
  1562. // TScriptableObjectList::GetContainedObject
  1563. //----------------------------------------------------------------------------------------
  1564. #pragma segment MAOSLDispatch
  1565.  
  1566. MScriptableObject* TScriptableObjectList::GetContainedObject(DescType desiredType,
  1567.                                               DescType selectionForm,
  1568.                                               const CAEDesc& selectionData)
  1569. {
  1570.     // This method is needed when a complex object specifier has resolved into a list of objects,
  1571.     // but then actually wants a property from each one.
  1572.     // We handle this by building up a list of contained objects from each object in this list.
  1573.  
  1574.     MAVolatileInit(TScriptableObjectList*, theNewList, new TScriptableObjectList);
  1575.     MScriptableObject * theContainer = this->GetObjectsContainer();
  1576.     theNewList->IScriptableObjectList(theContainer);
  1577.     FailInfo fi;
  1578.     Try(fi)
  1579.     {
  1580.         {
  1581.             CObjectIterator iter(this);
  1582.             for (TObject * anObject = iter.FirstObject(); iter.More(); anObject = iter.NextObject())
  1583.             {
  1584.                 MScriptableObject *theResult = ((MScriptableObject*)anObject)->GetContainedObject(desiredType, selectionForm, selectionData);
  1585.                 if (theResult == NULL)
  1586.                     FailOSErr(errAENoSuchObject);
  1587.                 theNewList->InsertLast((TObject*)theResult);
  1588.             }
  1589.             TOSADispatcher::fgDispatcher->AddTemporaryToken(theNewList);
  1590.         }
  1591.         fi.Success();
  1592.     }
  1593.     else
  1594.     {
  1595.         FreeIfObject(theNewList);
  1596.         fi.ReSignal();
  1597.     }
  1598.     return theNewList;
  1599. }
  1600.  
  1601. //----------------------------------------------------------------------------------------
  1602. // TScriptableObjectList::CountContainedObjects
  1603. //----------------------------------------------------------------------------------------
  1604. #pragma segment MAOSLDispatch
  1605.  
  1606. long TScriptableObjectList::CountContainedObjects(DescType desiredType)
  1607. // Adds up CountContainedObjects for all objects in the list.
  1608. {
  1609.     long result = 0;
  1610.     CObjectIterator iter(this);
  1611.     for (TObject * anObject = iter.FirstObject(); iter.More(); anObject = iter.NextObject())
  1612.         result += ((MScriptableObject*)anObject)->CountContainedObjects(desiredType);
  1613.     return result;
  1614. }
  1615.  
  1616. //----------------------------------------------------------------------------------------
  1617. // TSetPropertyEvent
  1618. //----------------------------------------------------------------------------------------
  1619. #undef Inherited
  1620. #define Inherited TAppleEvent
  1621.  
  1622. #pragma segment ConstructorRes
  1623. MA_DEFINE_CLASS_M1(TSetPropertyEvent, Inherited);
  1624.  
  1625. //----------------------------------------------------------------------------------------
  1626. // TSetPropertyEvent::TSetPropertyEvent
  1627. //----------------------------------------------------------------------------------------
  1628.  
  1629. TSetPropertyEvent::TSetPropertyEvent()
  1630. {
  1631. }
  1632.  
  1633. //----------------------------------------------------------------------------------------
  1634. // TSetPropertyEvent destructor
  1635. //----------------------------------------------------------------------------------------
  1636. #pragma segment MADestructorRes
  1637.  
  1638. TSetPropertyEvent::~TSetPropertyEvent()
  1639. {
  1640. }
  1641.  
  1642. //----------------------------------------------------------------------------------------
  1643. // TSetPropertyEvent::ISetPropertyEvent
  1644. //----------------------------------------------------------------------------------------
  1645. #pragma segment AEInitialize
  1646.  
  1647. void TSetPropertyEvent::ISetPropertyEvent(const CAEDesc& itsAddress,
  1648.                                           long itsSendingMode,
  1649.                                           MScriptableObject* objectToSet,
  1650.                                           DescType propType)
  1651. {
  1652.     // Initializes the event with the recipient, sending mode, the object you want to set and the 
  1653.     // property you want to modify. Creates an object specifier for the object's property and 
  1654.     // sticks it in the direct object.
  1655.     CTempDesc propertyToSet;
  1656.     CAEDesc localAddress = itsAddress;
  1657.     FailInfo fi;
  1658.     Try(fi)
  1659.     {
  1660.         this->IAppleEvent(kAECoreSuite, kAESetData, (AEAddressDesc&)localAddress, itsSendingMode);
  1661.         CAEDesc objectSpecifier;
  1662.         CAEDesc theProperty;
  1663.         objectToSet->MakeObjectSpecifier(objectSpecifier, objectToSet->GetSpecifierForm());
  1664.         theProperty.PutType(propType);
  1665.         FailOSErr(CreateObjSpecifier(cProperty, objectSpecifier, formPropertyID, theProperty, TRUE, propertyToSet));
  1666.         this->WriteParameter(keyDirectObject, propertyToSet);
  1667.         fi.Success();
  1668.     }
  1669.     else
  1670.     {
  1671.         this->Free();
  1672.         fi.ReSignal();
  1673.     }
  1674. }
  1675.  
  1676. //----------------------------------------------------------------------------------------
  1677. // TMenuAccessor
  1678. //----------------------------------------------------------------------------------------
  1679. #undef Inherited
  1680. #define Inherited TObject
  1681.  
  1682. #pragma segment ConstructorRes
  1683. MA_DEFINE_CLASS_M2(TMenuAccessor, Inherited, MScriptableObject);
  1684.  
  1685. //----------------------------------------------------------------------------------------
  1686. // TMenuAccessor::TMenuAccessor
  1687. //----------------------------------------------------------------------------------------
  1688.  
  1689. TMenuAccessor::TMenuAccessor()
  1690.     : MScriptableObject(cMenu)
  1691. {
  1692. }                                                // TMenuAccessor::TMenuAccessor
  1693.  
  1694. //----------------------------------------------------------------------------------------
  1695. // TMenuAccessor destructor
  1696. //----------------------------------------------------------------------------------------
  1697. #pragma segment MADestructorRes
  1698.  
  1699. TMenuAccessor::~TMenuAccessor()
  1700. {
  1701. }
  1702.  
  1703. //----------------------------------------------------------------------------------------
  1704. // TMenuAccessor::IMenuAccessor
  1705. //----------------------------------------------------------------------------------------
  1706. #pragma segment MAOSLDispatch
  1707.  
  1708. void TMenuAccessor::IMenuAccessor(MenuRef theMenu, short theIndex)
  1709. {
  1710.     IObject();
  1711.     fMenu = theMenu;
  1712.     fIndex = theIndex;
  1713. }
  1714.  
  1715. //----------------------------------------------------------------------------------------
  1716. // TMenuAccessor::GetObjectProperty
  1717. //----------------------------------------------------------------------------------------
  1718. #pragma segment MAOSLDispatch
  1719.  
  1720. Boolean TMenuAccessor::GetObjectProperty(CAEDesc& thePropertyValue,
  1721.                                          DescType whichProperty,
  1722.                                          const CAEDesc& desiredType)
  1723. {
  1724.     Boolean hasProperty = TRUE;
  1725.     FailInfo fi;
  1726.     Try(fi)
  1727.     {
  1728.         switch (whichProperty)
  1729.         {
  1730.     
  1731.             case pName:
  1732.                 {
  1733.                     CStr255 theMenuName = (CStr255&)(**fMenu).menuData;
  1734.                     thePropertyValue.PutString(theMenuName);
  1735.                 }
  1736.                 break;
  1737.                 
  1738.             case pIndex:
  1739.                 {
  1740.                     thePropertyValue.PutLong(fIndex);
  1741.                 }
  1742.                 break;
  1743.     
  1744.             case pMenuID:
  1745.                 {
  1746.                     thePropertyValue.PutLong((long)(**fMenu).menuID);
  1747.                 }
  1748.                 break;
  1749.     
  1750.             default:
  1751.                 hasProperty = MScriptableObject::GetObjectProperty(thePropertyValue, whichProperty, desiredType);
  1752.                 break;
  1753.         }
  1754.         fi.Success();
  1755.     }
  1756.     else
  1757.     {
  1758.         hasProperty = FALSE;
  1759.     }
  1760.     return hasProperty;
  1761. }
  1762.  
  1763. //----------------------------------------------------------------------------------------
  1764. // TMenuAccessor::SetObjectProperty: 
  1765. //----------------------------------------------------------------------------------------
  1766. #pragma segment MAScriptingRes
  1767.  
  1768. void TMenuAccessor::SetObjectProperty(const CAEDesc& thePropertyValue,
  1769.                                       DescType whichProperty)
  1770. {
  1771.     switch (whichProperty)
  1772.     {
  1773.         case pName:
  1774.         case pMenuID:
  1775.             FailOSErr(errAECantSetReadOnly);
  1776.             break;
  1777.  
  1778.         default:
  1779.             MScriptableObject::SetObjectProperty(thePropertyValue, whichProperty);
  1780.             break;
  1781.     }
  1782. }
  1783.  
  1784. //----------------------------------------------------------------------------------------
  1785. // TMenuAccessor::GetContainedObject
  1786. //----------------------------------------------------------------------------------------
  1787. #pragma segment MAOSLDispatch
  1788.  
  1789. MScriptableObject* TMenuAccessor::GetIndContainedObject(DescType desiredType,
  1790.                                                        long index)
  1791. {
  1792.     if (desiredType == cMenuItem)
  1793.     {
  1794.         // Create a menu item accessor to handle events for this menu item
  1795.         TMenuItemAccessor* theAccessor = new TMenuItemAccessor;
  1796.         theAccessor->IMenuItemAccessor(fMenu, (short)index);
  1797.         TOSADispatcher::fgDispatcher->AddTemporaryToken(theAccessor);
  1798.         return theAccessor;
  1799.     }
  1800.     else
  1801.         return MScriptableObject::GetIndContainedObject(desiredType, index);
  1802. }
  1803.  
  1804. //----------------------------------------------------------------------------------------
  1805. // TMenuAccessor::CountContainedObjects
  1806. //----------------------------------------------------------------------------------------
  1807. #pragma segment MAOSLDispatch
  1808.  
  1809. long TMenuAccessor::CountContainedObjects(DescType desiredType)
  1810.     // Returns the number of menu item in a menu.
  1811. {
  1812.     if (desiredType == cMenuItem)
  1813.         return CountMItems(fMenu);
  1814.     else
  1815.         return MScriptableObject::CountContainedObjects(desiredType);
  1816. }
  1817.  
  1818. //----------------------------------------------------------------------------------------
  1819. // TMenuItemAccessor
  1820. //----------------------------------------------------------------------------------------
  1821. #undef Inherited
  1822. #define Inherited TObject
  1823.  
  1824. #pragma segment ConstructorRes
  1825. MA_DEFINE_CLASS_M2(TMenuItemAccessor, Inherited, MScriptableObject);
  1826.  
  1827. //----------------------------------------------------------------------------------------
  1828. // TMenuItemAccessor::TMenuItemAccessor
  1829. //----------------------------------------------------------------------------------------
  1830.  
  1831. TMenuItemAccessor::TMenuItemAccessor(): MScriptableObject(cMenuItem)
  1832. {
  1833. }                                                // TMenuItemAccessor::TMenuItemAccessor
  1834.  
  1835. //----------------------------------------------------------------------------------------
  1836. // TMenuItemAccessor destructor
  1837. //----------------------------------------------------------------------------------------
  1838. #pragma segment MADestructorRes
  1839.  
  1840. TMenuItemAccessor::~TMenuItemAccessor()
  1841. {
  1842. }
  1843.  
  1844. //----------------------------------------------------------------------------------------
  1845. // TMenuItemAccessor::IMenuItemAccessor
  1846. //----------------------------------------------------------------------------------------
  1847. #pragma segment MAOSLDispatch
  1848.  
  1849. void TMenuItemAccessor::IMenuItemAccessor(MenuRef theMenu, short theItem)
  1850. {
  1851.     IObject();
  1852.     fMenu = theMenu;
  1853.     fMenuItem = theItem;
  1854. }
  1855.  
  1856. //----------------------------------------------------------------------------------------
  1857. // TMenuItemAccessor::GetObjectProperty
  1858. //----------------------------------------------------------------------------------------
  1859. #pragma segment MAOSLDispatch
  1860.  
  1861. Boolean TMenuItemAccessor::GetObjectProperty(CAEDesc& thePropertyValue,
  1862.                                              DescType whichProperty,
  1863.                                              const CAEDesc& desiredType)
  1864. {
  1865.     Boolean hasProperty = TRUE;
  1866.     FailInfo fi;
  1867.     Try(fi)
  1868.     {
  1869.         switch (whichProperty)
  1870.         {
  1871.     
  1872.             case pName:
  1873.                 {
  1874.                     CStr255 theItemName;
  1875.                     GetMenuItemText(fMenu, fMenuItem, theItemName);
  1876.                     thePropertyValue.PutString(theItemName);
  1877.                 }
  1878.                 break;
  1879.                 
  1880.             case pItemNumber:
  1881.             case pIndex:
  1882.                 {
  1883.                     thePropertyValue.PutLong(fMenuItem);
  1884.                 }
  1885.                 break;
  1886.     
  1887.             case pEnabled:
  1888.                 {
  1889.                     Boolean isEnabled = FALSE;
  1890.                     if ((fMenuItem > 0) && (fMenuItem < 32))
  1891.                         isEnabled = ((((*fMenu)->enableFlags >> fMenuItem) & 0x01) != 0);
  1892.                     else
  1893.                         isEnabled = TRUE;
  1894.                     thePropertyValue.PutBoolean(isEnabled);
  1895.                 }
  1896.                 break;
  1897.     
  1898.             default:
  1899.                 hasProperty = MScriptableObject::GetObjectProperty(thePropertyValue, whichProperty, desiredType);
  1900.                 break;
  1901.         }
  1902.         fi.Success();
  1903.     }
  1904.     else
  1905.     {
  1906.         hasProperty = FALSE;
  1907.     }
  1908.     return hasProperty;
  1909. }
  1910.  
  1911. //----------------------------------------------------------------------------------------
  1912. // TMenuItemAccessor::SetObjectProperty: 
  1913. //----------------------------------------------------------------------------------------
  1914. #pragma segment MAScriptingRes
  1915.  
  1916. void TMenuItemAccessor::SetObjectProperty(const CAEDesc& thePropertyValue,
  1917.                                       DescType whichProperty)
  1918. {
  1919.     switch (whichProperty)
  1920.     {
  1921.         case pName:
  1922.         case pItemNumber:
  1923.         case pEnabled:
  1924.             FailOSErr(errAECantSetReadOnly);
  1925.             break;
  1926.  
  1927.         default:
  1928.             MScriptableObject::SetObjectProperty(thePropertyValue, whichProperty);
  1929.             break;
  1930.     }
  1931. }
  1932.  
  1933. //----------------------------------------------------------------------------------------
  1934. // TMenuItemAccessor::DoAEOpen
  1935. //----------------------------------------------------------------------------------------
  1936. #pragma segment MAOSLDispatch
  1937.  
  1938. void TMenuItemAccessor::DoAEOpen(TAppleEvent*    /* message */ ,
  1939.                                  TAppleEvent* /* reply */)
  1940. {
  1941.     gDispatcher->MenuEvent(((long)(**fMenu).menuID << 16) | fMenuItem);
  1942. }
  1943.  
  1944. //----------------------------------------------------------------------------------------
  1945. // End of UScripting.cp
  1946.  
  1947. #pragma segment Inline
  1948.